/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / efs / dired-grep.elc.z / dired-grep.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 33 |on Mon M|ar  9 13|
|00000040| 3a 30 30 3a 34 32 20 31 | 39 39 38 0a 3b 3b 3b 20 |:00:42 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 65 66 73 2f |s-20.3/l|isp/efs/|
|000000a0| 64 69 72 65 64 2d 67 72 | 65 70 2e 65 6c 0a 3b 3b |dired-gr|ep.el.;;|
|000000b0| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|000000c0| 32 30 2e 34 20 22 45 6d | 65 72 61 6c 64 22 20 58 |20.4 "Em|erald" X|
|000000d0| 45 6d 61 63 73 20 20 4c | 75 63 69 64 2e 0a 3b 3b |Emacs  L|ucid..;;|
|000000e0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000f0| 6f 6e 20 32 2e 32 35 20 | 58 45 6d 61 63 73 3b 20 |on 2.25 |XEmacs; |
|00000100| 32 32 2d 4d 61 72 2d 39 | 36 2e 0a 3b 3b 3b 20 6f |22-Mar-9|6..;;; o|
|00000110| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|00000120| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|00000130| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|00000140| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000150| 20 69 6e 20 45 6d 61 63 | 73 20 31 39 2e 0a 0a 28 | in Emac|s 19...(|
|00000160| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000170| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000180| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000190| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|000001a0| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|000001b0| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|000001c0| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|000001d0| 72 73 69 6f 6e 20 22 32 | 30 22 29 29 29 0a 20 20 |rsion "2|0"))).  |
|000001e0| 20 20 28 65 72 72 6f 72 | 20 22 60 64 69 72 65 64 |  (error| "`dired|
|000001f0| 2d 67 72 65 70 2e 65 6c | 27 20 77 61 73 20 63 6f |-grep.el|' was co|
|00000200| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|00000210| 20 32 30 22 29 29 0a 0a | 28 6f 72 20 28 62 6f 75 | 20"))..|(or (bou|
|00000220| 6e 64 70 20 27 63 75 72 | 72 65 6e 74 2d 6c 6f 61 |ndp 'cur|rent-loa|
|00000230| 64 2d 6c 69 73 74 29 20 | 28 73 65 74 71 20 63 75 |d-list) |(setq cu|
|00000240| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 20 |rrent-lo|ad-list |
|00000250| 6e 69 6c 29 29 0a 0a 0a | 28 62 79 74 65 2d 63 6f |nil))...|(byte-co|
|00000260| 64 65 20 22 c0 c1 21 88 | c2 c3 21 ac 84 c4 c5 21 |de "..!.|..!....!|
|00000270| 88 c2 c6 21 ac 84 c4 c5 | 21 88 c4 c7 21 87 22 20 |...!....|!...!." |
|00000280| 5b 70 72 6f 76 69 64 65 | 20 64 69 72 65 64 2d 67 |[provide| dired-g|
|00000290| 72 65 70 20 66 62 6f 75 | 6e 64 70 20 66 69 6c 65 |rep fbou|ndp file|
|000002a0| 2d 6c 6f 63 61 6c 2d 63 | 6f 70 79 20 72 65 71 75 |-local-c|opy requ|
|000002b0| 69 72 65 20 65 6d 61 63 | 73 2d 31 39 20 67 65 6e |ire emac|s-19 gen|
|000002c0| 65 72 61 74 65 2d 6e 65 | 77 2d 62 75 66 66 65 72 |erate-ne|w-buffer|
|000002d0| 20 64 69 72 65 64 5d 20 | 32 29 0a 23 40 32 35 38 | dired] |2).#@258|
|000002e0| 20 4e 61 6d 65 20 6f 66 | 20 70 72 6f 67 72 61 6d | Name of| program|
|000002f0| 20 74 6f 20 75 73 65 20 | 74 6f 20 67 72 65 70 20 | to use |to grep |
|00000300| 66 69 6c 65 73 2e 0a 57 | 68 65 6e 20 75 73 65 64 |files..W|hen used|
|00000310| 20 77 69 74 68 20 74 68 | 65 20 22 2d 6e 22 20 66 | with th|e "-n" f|
|00000320| 6c 61 67 2c 20 70 72 6f | 67 72 61 6d 20 6d 75 73 |lag, pro|gram mus|
|00000330| 74 20 70 72 65 63 65 64 | 65 20 65 61 63 68 20 6d |t preced|e each m|
|00000340| 61 74 63 68 20 77 69 74 | 68 20 22 23 23 23 3a 22 |atch wit|h "###:"|
|00000350| 2c 0a 77 68 65 72 65 20 | 22 23 23 23 22 20 69 73 |,.where |"###" is|
|00000360| 20 74 68 65 20 6c 69 6e | 65 20 6e 75 6d 62 65 72 | the lin|e number|
|00000370| 20 6f 66 20 74 68 65 20 | 6d 61 74 63 68 2e 0a 49 | of the |match..I|
|00000380| 66 20 74 68 65 72 65 20 | 61 72 65 20 67 72 65 70 |f there |are grep|
|00000390| 20 70 72 6f 67 72 61 6d | 73 20 77 68 69 63 68 20 | program|s which |
|000003a0| 64 6f 6e 27 74 20 64 6f | 20 74 68 69 73 2c 20 77 |don't do| this, w|
|000003b0| 65 27 6c 6c 20 74 72 79 | 20 74 6f 20 74 68 69 6e |e'll try| to thin|
|000003c0| 6b 20 6f 66 0a 73 6f 6d | 65 20 77 61 79 20 74 6f |k of.som|e way to|
|000003d0| 20 61 63 63 6f 6d 6f 64 | 61 74 65 20 74 68 65 6d | accomod|ate them|
|000003e0| 2e 1f 0a 28 64 65 66 76 | 61 72 20 64 69 72 65 64 |...(defv|ar dired|
|000003f0| 2d 67 72 65 70 2d 70 72 | 6f 67 72 61 6d 20 22 67 |-grep-pr|ogram "g|
|00000400| 72 65 70 22 20 28 23 24 | 20 2e 20 37 33 37 29 29 |rep" (#$| . 737))|
|00000410| 0a 23 40 31 35 39 20 2a | 53 77 69 74 63 68 65 73 |.#@159 *|Switches|
|00000420| 20 74 6f 20 70 61 73 73 | 20 74 6f 20 74 68 65 20 | to pass| to the |
|00000430| 67 72 65 70 20 70 72 6f | 67 72 61 6d 2e 0a 54 68 |grep pro|gram..Th|
|00000440| 69 73 20 6d 61 79 20 62 | 65 20 65 69 74 68 65 72 |is may b|e either|
|00000450| 20 61 20 73 74 72 69 6e | 67 20 6f 72 20 61 20 6c | a strin|g or a l|
|00000460| 69 73 74 20 6f 66 20 73 | 74 72 69 6e 67 73 2e 20 |ist of s|trings. |
|00000470| 20 49 74 20 69 73 20 6e | 6f 74 20 6e 65 63 65 73 | It is n|ot neces|
|00000480| 73 61 72 79 20 74 6f 20 | 0a 69 6e 63 6c 75 64 65 |sary to |.include|
|00000490| 20 22 2d 6e 22 20 61 73 | 20 74 68 61 74 20 73 77 | "-n" as| that sw|
|000004a0| 69 74 63 68 20 69 73 20 | 61 6c 77 61 79 73 20 75 |itch is |always u|
|000004b0| 73 65 64 2e 1f 0a 28 64 | 65 66 76 61 72 20 64 69 |sed...(d|efvar di|
|000004c0| 72 65 64 2d 67 72 65 70 | 2d 73 77 69 74 63 68 65 |red-grep|-switche|
|000004d0| 73 20 6e 69 6c 20 28 23 | 24 20 2e 20 2d 31 30 34 |s nil (#|$ . -104|
|000004e0| 37 29 29 0a 23 40 34 32 | 20 4e 61 6d 65 20 6f 66 |7)).#@42| Name of|
|000004f0| 20 70 72 6f 67 72 61 6d | 20 74 6f 20 63 61 74 20 | program| to cat |
|00000500| 63 6f 6d 70 72 65 73 73 | 65 64 20 66 69 6c 65 73 |compress|ed files|
|00000510| 2e 1f 0a 28 64 65 66 76 | 61 72 20 64 69 72 65 64 |...(defv|ar dired|
|00000520| 2d 67 72 65 70 2d 7a 63 | 61 74 2d 70 72 6f 67 72 |-grep-zc|at-progr|
|00000530| 61 6d 20 22 7a 63 61 74 | 22 20 28 23 24 20 2e 20 |am "zcat|" (#$ . |
|00000540| 31 32 35 37 29 29 0a 23 | 40 34 34 20 52 65 67 65 |1257)).#|@44 Rege|
|00000550| 78 70 20 74 6f 20 6d 61 | 74 63 68 20 6e 61 6d 65 |xp to ma|tch name|
|00000560| 73 20 6f 66 20 63 6f 6d | 70 72 65 73 73 65 64 20 |s of com|pressed |
|00000570| 66 69 6c 65 73 2e 1f 0a | 28 64 65 66 76 61 72 20 |files...|(defvar |
|00000580| 64 69 72 65 64 2d 67 72 | 65 70 2d 63 6f 6d 70 72 |dired-gr|ep-compr|
|00000590| 65 73 73 65 64 2d 66 69 | 6c 65 20 22 2e 5c 5c 2e |essed-fi|le ".\\.|
|000005a0| 5c 5c 28 67 7a 5c 5c 7c | 5b 7a 5a 5d 5c 5c 29 24 |\\(gz\\||[zZ]\\)$|
|000005b0| 22 20 28 23 24 20 2e 20 | 31 33 35 36 29 29 0a 23 |" (#$ . |1356)).#|
|000005c0| 40 31 30 30 20 2a 49 66 | 20 6e 6f 6e 2d 6e 69 6c |@100 *If| non-nil|
|000005d0| 2c 20 74 68 65 20 67 72 | 65 70 20 6f 75 74 70 75 |, the gr|ep outpu|
|000005e0| 74 20 69 73 20 64 69 73 | 70 6c 61 79 65 64 20 69 |t is dis|played i|
|000005f0| 6e 20 74 68 65 20 6f 74 | 68 65 72 20 77 69 6e 64 |n the ot|her wind|
|00000600| 6f 77 20 75 70 6f 6e 0a | 63 6f 6d 70 6c 65 74 69 |ow upon.|completi|
|00000610| 6f 6e 20 6f 66 20 74 68 | 65 20 67 72 65 70 20 70 |on of th|e grep p|
|00000620| 72 6f 63 65 73 73 2e 1f | 0a 28 64 65 66 76 61 72 |rocess..|.(defvar|
|00000630| 20 64 69 72 65 64 2d 67 | 72 65 70 2d 70 6f 70 2d | dired-g|rep-pop-|
|00000640| 75 70 2d 62 75 66 66 65 | 72 20 74 20 28 23 24 20 |up-buffe|r t (#$ |
|00000650| 2e 20 2d 31 34 37 37 29 | 29 0a 23 40 34 37 20 4e |. -1477)|).#@47 N|
|00000660| 61 6d 65 20 6f 66 20 62 | 75 66 66 65 72 20 77 68 |ame of b|uffer wh|
|00000670| 65 72 65 20 67 72 65 70 | 20 72 65 73 75 6c 74 73 |ere grep| results|
|00000680| 20 61 72 65 20 6c 6f 67 | 67 65 64 2e 1f 0a 28 64 | are log|ged...(d|
|00000690| 65 66 76 61 72 20 64 69 | 72 65 64 2d 67 72 65 70 |efvar di|red-grep|
|000006a0| 2d 72 65 73 75 6c 74 73 | 2d 62 75 66 66 65 72 20 |-results|-buffer |
|000006b0| 22 2a 44 69 72 65 64 20 | 47 72 65 70 2a 22 20 28 |"*Dired |Grep*" (|
|000006c0| 23 24 20 2e 20 31 36 33 | 31 29 29 0a 23 40 33 37 |#$ . 163|1)).#@37|
|000006d0| 20 48 6f 6f 6b 20 72 75 | 6e 20 61 66 74 65 72 20 | Hook ru|n after |
|000006e0| 67 6f 69 6e 67 20 69 6e | 74 6f 20 67 72 65 70 2d |going in|to grep-|
|000006f0| 6d 6f 64 65 1f 0a 28 64 | 65 66 76 61 72 20 64 69 |mode..(d|efvar di|
|00000700| 72 65 64 2d 67 72 65 70 | 2d 6d 6f 64 65 2d 68 6f |red-grep|-mode-ho|
|00000710| 6f 6b 20 6e 69 6c 20 28 | 23 24 20 2e 20 31 37 34 |ok nil (|#$ . 174|
|00000720| 35 29 29 0a 23 40 34 31 | 20 48 69 73 74 6f 72 79 |5)).#@41| History|
|00000730| 20 6f 66 20 70 72 65 76 | 69 6f 75 73 20 67 72 65 | of prev|ious gre|
|00000740| 70 20 70 61 74 74 65 72 | 6e 73 20 75 73 65 64 2e |p patter|ns used.|
|00000750| 1f 0a 28 64 65 66 76 61 | 72 20 67 72 65 70 2d 68 |..(defva|r grep-h|
|00000760| 69 73 74 6f 72 79 20 6e | 69 6c 20 28 23 24 20 2e |istory n|il (#$ .|
|00000770| 20 31 38 33 33 29 29 0a | 28 62 79 74 65 2d 63 6f | 1833)).|(byte-co|
|00000780| 64 65 20 22 c0 c1 21 ac | 82 c2 11 c1 0b 42 13 c0 |de "..!.|.....B..|
|00000790| c4 21 ac 82 c2 14 c4 0b | 42 13 c2 87 22 20 5b 62 |.!......|B..." [b|
|000007a0| 6f 75 6e 64 70 20 64 69 | 72 65 64 2d 67 72 65 70 |oundp di|red-grep|
|000007b0| 2d 70 61 72 73 65 2d 66 | 6c 61 67 73 2d 63 61 63 |-parse-f|lags-cac|
|000007c0| 68 65 20 6e 69 6c 20 63 | 75 72 72 65 6e 74 2d 6c |he nil c|urrent-l|
|000007d0| 6f 61 64 2d 6c 69 73 74 | 20 64 69 72 65 64 2d 67 |oad-list| dired-g|
|000007e0| 72 65 70 2d 70 61 72 73 | 65 2d 66 6c 61 67 73 2d |rep-pars|e-flags-|
|000007f0| 63 61 63 68 65 2d 72 65 | 73 75 6c 74 5d 20 32 29 |cache-re|sult] 2)|
|00000800| 0a 23 40 33 37 20 4b 65 | 79 6d 61 70 20 66 6f 72 |.#@37 Ke|ymap for|
|00000810| 20 64 69 72 65 64 2d 67 | 72 65 70 2d 6d 6f 64 65 | dired-g|rep-mode|
|00000820| 20 62 75 66 66 65 72 73 | 2e 1f 0a 28 64 65 66 76 | buffers|...(defv|
|00000830| 61 72 20 64 69 72 65 64 | 2d 67 72 65 70 2d 6d 6f |ar dired|-grep-mo|
|00000840| 64 65 2d 6d 61 70 20 6e | 69 6c 20 28 23 24 20 2e |de-map n|il (#$ .|
|00000850| 20 32 30 35 34 29 29 0a | 28 62 79 74 65 2d 63 6f | 2054)).|(byte-co|
|00000860| 64 65 20 22 08 ac ed c1 | 20 10 c2 08 21 88 c3 08 |de "....| ...!...|
|00000870| c4 c5 23 88 c3 08 c6 c7 | 23 88 c3 08 c8 c9 23 88 |..#.....|#.....#.|
|00000880| c3 08 ca cb 23 88 c3 08 | cc cd 23 88 c3 08 ce cf |....#...|..#.....|
|00000890| 23 88 c3 08 d0 d1 23 88 | c3 08 d2 d3 23 88 c3 08 |#.....#.|....#...|
|000008a0| d4 d5 23 88 c3 08 d6 d7 | 23 88 c3 08 d8 d7 23 88 |..#.....|#.....#.|
|000008b0| c3 08 d9 da 23 88 c3 08 | db dc 23 88 c3 08 dd de |....#...|..#.....|
|000008c0| 23 88 c3 08 df e0 23 88 | c3 08 e1 e2 23 88 c3 08 |#.....#.|....#...|
|000008d0| e3 e2 23 88 c1 87 22 20 | 5b 64 69 72 65 64 2d 67 |..#..." |[dired-g|
|000008e0| 72 65 70 2d 6d 6f 64 65 | 2d 6d 61 70 20 6d 61 6b |rep-mode|-map mak|
|000008f0| 65 2d 6b 65 79 6d 61 70 | 20 73 75 70 70 72 65 73 |e-keymap| suppres|
|00000900| 73 2d 6b 65 79 6d 61 70 | 20 64 65 66 69 6e 65 2d |s-keymap| define-|
|00000910| 6b 65 79 20 22 5b 22 20 | 62 61 63 6b 77 61 72 64 |key "[" |backward|
|00000920| 2d 70 61 67 65 20 22 5d | 22 20 66 6f 72 77 61 72 |-page "]|" forwar|
|00000930| 64 2d 70 61 67 65 20 22 | 3e 22 20 64 69 72 65 64 |d-page "|>" dired|
|00000940| 2d 67 72 65 70 2d 6e 65 | 78 74 2d 68 69 74 20 22 |-grep-ne|xt-hit "|
|00000950| 3c 22 20 64 69 72 65 64 | 2d 67 72 65 70 2d 70 72 |<" dired|-grep-pr|
|00000960| 65 76 69 6f 75 73 2d 68 | 69 74 20 22 6e 22 20 64 |evious-h|it "n" d|
|00000970| 69 72 65 64 2d 67 72 65 | 70 2d 61 64 76 65 72 74 |ired-gre|p-advert|
|00000980| 69 7a 65 64 2d 6e 65 78 | 74 2d 68 69 74 20 22 70 |ized-nex|t-hit "p|
|00000990| 22 20 64 69 72 65 64 2d | 67 72 65 70 2d 61 64 76 |" dired-|grep-adv|
|000009a0| 65 72 74 69 7a 65 64 2d | 70 72 65 76 69 6f 75 73 |ertized-|previous|
|000009b0| 2d 68 69 74 20 22 6b 22 | 20 64 69 72 65 64 2d 67 |-hit "k"| dired-g|
|000009c0| 72 65 70 2d 64 65 6c 65 | 74 65 2d 6c 69 6e 65 20 |rep-dele|te-line |
|000009d0| 22 64 22 20 64 69 72 65 | 64 2d 67 72 65 70 2d 64 |"d" dire|d-grep-d|
|000009e0| 65 6c 65 74 65 2d 70 61 | 67 65 20 22 5e 22 20 64 |elete-pa|ge "^" d|
|000009f0| 69 72 65 64 2d 67 72 65 | 70 2d 64 65 6c 65 74 65 |ired-gre|p-delete|
|00000a00| 2d 70 72 65 63 65 64 69 | 6e 67 2d 70 61 67 65 73 |-precedi|ng-pages|
|00000a10| 20 22 66 22 20 64 69 72 | 65 64 2d 67 72 65 70 2d | "f" dir|ed-grep-|
|00000a20| 66 69 6e 64 2d 66 69 6c | 65 20 22 65 22 20 22 6d |find-fil|e "e" "m|
|00000a30| 22 20 64 69 72 65 64 2d | 67 72 65 70 2d 64 65 6c |" dired-|grep-del|
|00000a40| 65 74 65 2d 6d 69 73 73 | 65 73 20 22 6f 22 20 64 |ete-miss|es "o" d|
|00000a50| 69 72 65 64 2d 67 72 65 | 70 2d 66 69 6e 64 2d 66 |ired-gre|p-find-f|
|00000a60| 69 6c 65 2d 6f 74 68 65 | 72 2d 77 69 6e 64 6f 77 |ile-othe|r-window|
|00000a70| 20 22 76 22 20 64 69 72 | 65 64 2d 67 72 65 70 2d | "v" dir|ed-grep-|
|00000a80| 76 69 65 77 2d 66 69 6c | 65 20 22 77 22 20 64 69 |view-fil|e "w" di|
|00000a90| 72 65 64 2d 67 72 65 70 | 2d 64 65 6c 65 74 65 2d |red-grep|-delete-|
|00000aa0| 67 72 65 70 2d 66 6f 72 | 20 22 1f 22 20 64 69 72 |grep-for| "." dir|
|00000ab0| 65 64 2d 67 72 65 70 2d | 75 6e 64 6f 20 22 18 75 |ed-grep-|undo ".u|
|00000ac0| 22 5d 20 34 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |"] 4).(d|efalias |
|00000ad0| 27 64 69 72 65 64 2d 67 | 72 65 70 20 23 5b 28 70 |'dired-g|rep #[(p|
|00000ae0| 61 74 74 65 72 6e 20 66 | 6c 61 67 73 29 20 22 c0 |attern f|lags) ".|
|00000af0| 20 19 c2 0b 09 0c 23 89 | 1d ad 8a c6 c7 70 21 0d | .....#.|.....p!.|
|00000b00| c8 50 5c 22 88 09 2a 87 | 22 20 5b 64 69 72 65 64 |.P\"..*.|" [dired|
|00000b10| 2d 67 65 74 2d 66 69 6c | 65 6e 61 6d 65 20 66 69 |-get-fil|ename fi|
|00000b20| 6c 65 20 64 69 72 65 64 | 2d 67 72 65 70 2d 66 69 |le dired|-grep-fi|
|00000b30| 6c 65 20 70 61 74 74 65 | 72 6e 20 66 6c 61 67 73 |le patte|rn flags|
|00000b40| 20 72 65 73 75 6c 74 20 | 64 69 72 65 64 2d 6c 6f | result |dired-lo|
|00000b50| 67 20 62 75 66 66 65 72 | 2d 6e 61 6d 65 20 22 5c |g buffer|-name "\|
|00000b60| 6e 22 5d 20 35 5d 29 0a | 23 40 37 34 20 47 72 65 |n"] 5]).|#@74 Gre|
|00000b70| 70 20 6d 61 72 6b 65 64 | 20 66 69 6c 65 73 20 66 |p marked| files f|
|00000b80| 6f 72 20 61 20 70 61 74 | 74 65 72 6e 2e 20 57 69 |or a pat|tern. Wi|
|00000b90| 74 68 20 61 20 15 20 70 | 72 65 66 69 78 20 70 72 |th a . p|refix pr|
|00000ba0| 6f 6d 70 74 73 20 66 6f | 72 20 67 72 65 70 20 66 |ompts fo|r grep f|
|00000bb0| 6c 61 67 73 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |lags...(|defalias|
|00000bc0| 20 27 64 69 72 65 64 2d | 64 6f 2d 67 72 65 70 20 | 'dired-|do-grep |
|00000bd0| 23 5b 28 70 61 74 74 65 | 72 6e 20 26 6f 70 74 69 |#[(patte|rn &opti|
|00000be0| 6f 6e 61 6c 20 66 6c 61 | 67 73 20 61 72 67 29 20 |onal fla|gs arg) |
|00000bf0| 22 c0 c1 5c 6e c3 c4 0d | 89 ab 83 c6 aa 81 c7 0e |"..\n...|........|
|00000c00| 08 c7 b0 05 c9 25 87 22 | 20 5b 64 69 72 65 64 2d |.....%."| [dired-|
|00000c10| 6d 61 70 2d 6f 76 65 72 | 2d 6d 61 72 6b 73 2d 63 |map-over|-marks-c|
|00000c20| 68 65 63 6b 20 23 5b 6e | 69 6c 20 22 c0 09 5c 6e |heck #[n|il "..\n|
|00000c30| 5c 22 87 22 20 5b 64 69 | 72 65 64 2d 67 72 65 70 |\"." [di|red-grep|
|00000c40| 20 70 61 74 74 65 72 6e | 20 66 6c 61 67 73 5d 20 | pattern| flags] |
|00000c50| 33 5d 20 61 72 67 20 67 | 72 65 70 20 22 67 72 65 |3] arg g|rep "gre|
|00000c60| 70 20 22 20 66 6c 61 67 | 73 20 22 20 5c 22 22 20 |p " flag|s " \"" |
|00000c70| 22 5c 22 22 20 70 61 74 | 74 65 72 6e 20 74 5d 20 |"\"" pat|tern t] |
|00000c80| 39 20 28 23 24 20 2e 20 | 32 39 32 35 29 20 28 6c |9 (#$ . |2925) (l|
|00000c90| 65 74 2a 20 28 28 73 77 | 69 74 63 68 65 73 20 28 |et* ((sw|itches (|
|00000ca0| 69 66 20 28 63 6f 6e 73 | 70 20 63 75 72 72 65 6e |if (cons|p curren|
|00000cb0| 74 2d 70 72 65 66 69 78 | 2d 61 72 67 29 20 28 72 |t-prefix|-arg) (r|
|00000cc0| 65 61 64 2d 73 74 72 69 | 6e 67 20 22 53 77 69 74 |ead-stri|ng "Swit|
|00000cd0| 63 68 65 73 20 66 6f 72 | 20 67 72 65 70 3a 20 22 |ches for| grep: "|
|00000ce0| 29 20 64 69 72 65 64 2d | 67 72 65 70 2d 73 77 69 |) dired-|grep-swi|
|00000cf0| 74 63 68 65 73 29 29 20 | 28 70 72 6f 6d 70 74 20 |tches)) |(prompt |
|00000d00| 28 66 6f 72 6d 61 74 20 | 22 67 72 65 70 20 25 73 |(format |"grep %s|
|00000d10| 66 6f 72 20 70 61 74 74 | 65 72 6e 22 20 28 69 66 |for patt|ern" (if|
|00000d20| 20 28 73 74 72 69 6e 67 | 70 20 73 77 69 74 63 68 | (string|p switch|
|00000d30| 65 73 29 20 28 69 66 20 | 28 73 74 72 69 6e 67 2d |es) (if |(string-|
|00000d40| 65 71 75 61 6c 20 73 77 | 69 74 63 68 65 73 20 22 |equal sw|itches "|
|00000d50| 22 29 20 73 77 69 74 63 | 68 65 73 20 28 63 6f 6e |") switc|hes (con|
|00000d60| 63 61 74 20 73 77 69 74 | 63 68 65 73 20 22 20 22 |cat swit|ches " "|
|00000d70| 29 29 20 28 69 66 20 73 | 77 69 74 63 68 65 73 20 |)) (if s|witches |
|00000d80| 28 63 6f 6e 63 61 74 20 | 28 6d 61 70 63 6f 6e 63 |(concat |(mapconc|
|00000d90| 61 74 20 27 69 64 65 6e | 74 69 74 79 20 73 77 69 |at 'iden|tity swi|
|00000da0| 74 63 68 65 73 20 22 20 | 22 29 20 22 20 22 29 20 |tches " |") " ") |
|00000db0| 22 22 29 29 29 29 20 28 | 70 61 74 74 65 72 6e 20 |"")))) (|pattern |
|00000dc0| 28 64 69 72 65 64 2d 72 | 65 61 64 2d 77 69 74 68 |(dired-r|ead-with|
|00000dd0| 2d 68 69 73 74 6f 72 79 | 20 28 63 6f 6e 63 61 74 |-history| (concat|
|00000de0| 20 70 72 6f 6d 70 74 20 | 22 3a 20 22 29 20 6e 69 | prompt |": ") ni|
|00000df0| 6c 20 27 67 72 65 70 2d | 68 69 73 74 6f 72 79 29 |l 'grep-|history)|
|00000e00| 29 29 20 28 6c 69 73 74 | 20 70 61 74 74 65 72 6e |)) (list| pattern|
|00000e10| 20 73 77 69 74 63 68 65 | 73 20 28 61 6e 64 20 28 | switche|s (and (|
|00000e20| 6e 6f 74 20 28 63 6f 6e | 73 70 20 63 75 72 72 65 |not (con|sp curre|
|00000e30| 6e 74 2d 70 72 65 66 69 | 78 2d 61 72 67 29 29 20 |nt-prefi|x-arg)) |
|00000e40| 63 75 72 72 65 6e 74 2d | 70 72 65 66 69 78 2d 61 |current-|prefix-a|
|00000e50| 72 67 29 29 29 5d 29 0a | 28 64 65 66 61 6c 69 61 |rg)))]).|(defalia|
|00000e60| 73 20 27 64 69 72 65 64 | 2d 67 72 65 70 2d 67 65 |s 'dired|-grep-ge|
|00000e70| 74 2d 72 65 73 75 6c 74 | 73 2d 62 75 66 66 65 72 |t-result|s-buffer|
|00000e80| 20 23 5b 6e 69 6c 20 22 | c0 09 21 89 1a ae 8d 8a | #[nil "|..!.....|
|00000e90| c3 09 21 89 12 71 88 c4 | 20 88 5c 6e 29 29 87 22 |..!..q..| .\n))."|
|00000ea0| 20 5b 67 65 74 2d 62 75 | 66 66 65 72 20 64 69 72 | [get-bu|ffer dir|
|00000eb0| 65 64 2d 67 72 65 70 2d | 72 65 73 75 6c 74 73 2d |ed-grep-|results-|
|00000ec0| 62 75 66 66 65 72 20 62 | 75 66 66 65 72 20 67 65 |buffer b|uffer ge|
|00000ed0| 74 2d 62 75 66 66 65 72 | 2d 63 72 65 61 74 65 20 |t-buffer|-create |
|00000ee0| 64 69 72 65 64 2d 67 72 | 65 70 2d 6d 6f 64 65 5d |dired-gr|ep-mode]|
|00000ef0| 20 33 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 | 3]).(by|te-code |
|00000f00| 22 c0 c1 21 ac 84 c1 c2 | 4d 88 c0 87 22 20 5b 66 |"..!....|M..." [f|
|00000f10| 62 6f 75 6e 64 70 20 64 | 69 72 65 64 2d 67 72 65 |boundp d|ired-gre|
|00000f20| 70 2d 64 65 6c 65 74 65 | 2d 6c 6f 63 61 6c 2d 74 |p-delete|-local-t|
|00000f30| 65 6d 70 2d 66 69 6c 65 | 20 23 5b 28 66 69 6c 65 |emp-file| #[(file|
|00000f40| 29 20 22 c0 c1 c2 8f 87 | 22 20 5b 6e 69 6c 20 28 |) ".....|" [nil (|
|00000f50| 64 65 6c 65 74 65 2d 66 | 69 6c 65 20 66 69 6c 65 |delete-f|ile file|
|00000f60| 29 20 28 28 65 72 72 6f | 72 29 29 5d 20 33 5d 5d |) ((erro|r))] 3]]|
|00000f70| 20 32 29 0a 23 40 31 31 | 39 30 20 5c 3c 64 69 72 | 2).#@11|90 \<dir|
|00000f80| 65 64 2d 67 72 65 70 2d | 6d 6f 64 65 2d 6d 61 70 |ed-grep-|mode-map|
|00000f90| 3e 4d 6f 64 65 20 66 6f | 72 20 70 65 72 75 73 69 |>Mode fo|r perusi|
|00000fa0| 6e 67 20 67 72 65 70 20 | 6f 75 74 70 75 74 20 67 |ng grep |output g|
|00000fb0| 65 6e 65 72 61 74 65 64 | 20 66 72 6f 6d 20 64 69 |enerated| from di|
|00000fc0| 72 65 64 2e 0a 54 68 65 | 20 6f 75 74 70 75 74 20 |red..The| output |
|00000fd0| 69 73 20 64 69 76 69 64 | 65 64 20 69 6e 74 6f 20 |is divid|ed into |
|00000fe0| 70 61 67 65 73 2c 20 6f | 6e 65 20 70 61 67 65 20 |pages, o|ne page |
|00000ff0| 70 65 72 20 67 72 65 70 | 70 65 64 20 66 69 6c 65 |per grep|ped file|
|00001000| 2e 0a 0a 53 75 6d 6d 61 | 72 79 20 6f 66 20 63 6f |...Summa|ry of co|
|00001010| 6d 6d 61 6e 64 73 3a 0a | 0a 4d 6f 76 65 20 74 6f |mmands:.|.Move to|
|00001020| 20 6e 65 78 74 20 67 72 | 65 70 20 68 69 74 20 20 | next gr|ep hit  |
|00001030| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001040| 20 20 20 5c 5b 64 69 72 | 65 64 2d 67 72 65 70 2d |   \[dir|ed-grep-|
|00001050| 61 64 76 65 72 74 69 7a | 65 64 2d 6e 65 78 74 2d |advertiz|ed-next-|
|00001060| 68 69 74 5d 2c 20 5c 5b | 64 69 72 65 64 2d 67 72 |hit], \[|dired-gr|
|00001070| 65 70 2d 6e 65 78 74 2d | 68 69 74 5d 0a 4d 6f 76 |ep-next-|hit].Mov|
|00001080| 65 20 74 6f 20 70 72 65 | 76 69 6f 75 73 20 67 72 |e to pre|vious gr|
|00001090| 65 70 20 68 69 74 20 20 | 20 20 20 20 20 20 20 20 |ep hit  |        |
|000010a0| 20 20 20 20 20 20 20 5c | 5b 64 69 72 65 64 2d 67 |       \|[dired-g|
|000010b0| 72 65 70 2d 61 64 76 65 | 72 74 69 7a 65 64 2d 70 |rep-adve|rtized-p|
|000010c0| 72 65 76 69 6f 75 73 2d | 68 69 74 5d 2c 20 5c 5b |revious-|hit], \[|
|000010d0| 64 69 72 65 64 2d 67 72 | 65 70 2d 70 72 65 76 69 |dired-gr|ep-previ|
|000010e0| 6f 75 73 2d 68 69 74 5d | 0a 4d 6f 76 65 20 74 6f |ous-hit]|.Move to|
|000010f0| 20 6f 75 74 70 75 74 20 | 66 6f 72 20 6e 65 78 74 | output |for next|
|00001100| 20 66 69 6c 65 20 20 20 | 20 20 20 20 20 20 20 20 | file   |        |
|00001110| 20 20 20 5c 5b 66 6f 72 | 77 61 72 64 2d 70 61 67 |   \[for|ward-pag|
|00001120| 65 5d 0a 4d 6f 76 65 20 | 74 6f 20 6f 75 74 70 75 |e].Move |to outpu|
|00001130| 74 20 66 6f 72 20 70 72 | 65 76 69 6f 75 73 20 66 |t for pr|evious f|
|00001140| 69 6c 65 20 20 20 20 20 | 20 20 20 20 20 5c 5b 62 |ile     |     \[b|
|00001150| 61 63 6b 77 61 72 64 2d | 70 61 67 65 5d 0a 0a 44 |ackward-|page]..D|
|00001160| 65 6c 65 74 65 20 74 68 | 65 20 63 75 72 72 65 6e |elete th|e curren|
|00001170| 74 20 67 72 65 70 20 6c | 69 6e 65 20 20 20 20 20 |t grep l|ine     |
|00001180| 20 20 20 20 20 20 20 20 | 20 5c 5b 64 69 72 65 64 |        | \[dired|
|00001190| 2d 67 72 65 70 2d 64 65 | 6c 65 74 65 2d 6c 69 6e |-grep-de|lete-lin|
|000011a0| 65 5d 0a 44 65 6c 65 74 | 65 20 61 6c 6c 20 6f 75 |e].Delet|e all ou|
|000011b0| 74 70 75 74 20 66 6f 72 | 20 63 75 72 72 65 6e 74 |tput for| current|
|000011c0| 20 66 69 6c 65 20 20 20 | 20 20 20 20 20 5c 5b 64 | file   |     \[d|
|000011d0| 69 72 65 64 2d 67 72 65 | 70 2d 64 65 6c 65 74 65 |ired-gre|p-delete|
|000011e0| 2d 70 61 67 65 5d 0a 44 | 65 6c 65 74 65 20 61 6c |-page].D|elete al|
|000011f0| 6c 20 70 72 65 63 65 64 | 69 6e 67 20 70 61 67 65 |l preced|ing page|
|00001200| 73 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |s       |        |
|00001210| 20 5c 5b 64 69 72 65 64 | 2d 67 72 65 70 2d 64 65 | \[dired|-grep-de|
|00001220| 6c 65 74 65 2d 70 72 65 | 63 65 64 69 6e 67 2d 70 |lete-pre|ceding-p|
|00001230| 61 67 65 73 5d 0a 44 65 | 6c 65 74 65 20 61 6c 6c |ages].De|lete all|
|00001240| 20 70 61 67 65 73 20 66 | 6f 72 20 66 69 6c 65 73 | pages f|or files|
|00001250| 20 77 69 74 68 20 6e 6f | 20 68 69 74 73 20 20 20 | with no| hits   |
|00001260| 5c 5b 64 69 72 65 64 2d | 67 72 65 70 2d 64 65 6c |\[dired-|grep-del|
|00001270| 65 74 65 2d 6d 69 73 73 | 65 73 5d 0a 44 65 6c 65 |ete-miss|es].Dele|
|00001280| 74 65 20 61 6c 6c 20 70 | 61 67 65 73 20 77 68 69 |te all p|ages whi|
|00001290| 63 68 20 67 72 65 70 20 | 66 6f 72 20 74 68 65 20 |ch grep |for the |
|000012a0| 0a 20 20 73 61 6d 65 20 | 70 61 74 74 65 72 6e 20 |.  same |pattern |
|000012b0| 61 73 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 70 |as the c|urrent p|
|000012c0| 61 67 65 20 20 20 20 20 | 20 20 20 5c 5b 64 69 72 |age     |   \[dir|
|000012d0| 65 64 2d 67 72 65 70 2d | 64 65 6c 65 74 65 2d 67 |ed-grep-|delete-g|
|000012e0| 72 65 70 2d 66 6f 72 5d | 0a 0a 46 69 6e 64 20 63 |rep-for]|..Find c|
|000012f0| 75 72 72 65 6e 74 20 67 | 72 65 70 20 68 69 74 20 |urrent g|rep hit |
|00001300| 69 6e 20 66 69 6c 65 20 | 20 20 20 20 20 20 20 20 |in file |        |
|00001310| 20 20 20 20 5c 5b 64 69 | 72 65 64 2d 67 72 65 70 |    \[di|red-grep|
|00001320| 2d 66 69 6e 64 2d 66 69 | 6c 65 5d 0a 46 69 6e 64 |-find-fi|le].Find|
|00001330| 20 63 75 72 72 65 6e 74 | 20 67 72 65 70 20 68 69 | current| grep hi|
|00001340| 74 20 69 6e 20 6f 74 68 | 65 72 20 77 69 6e 64 6f |t in oth|er windo|
|00001350| 77 20 20 20 20 20 5c 5b | 64 69 72 65 64 2d 67 72 |w     \[|dired-gr|
|00001360| 65 70 2d 66 69 6e 64 2d | 66 69 6c 65 2d 6f 74 68 |ep-find-|file-oth|
|00001370| 65 72 2d 77 69 6e 64 6f | 77 5d 0a 56 69 65 77 20 |er-windo|w].View |
|00001380| 63 75 72 72 65 6e 74 20 | 67 72 65 70 20 68 69 74 |current |grep hit|
|00001390| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000013a0| 20 20 20 20 20 5c 5b 64 | 69 72 65 64 2d 67 72 65 |     \[d|ired-gre|
|000013b0| 70 2d 76 69 65 77 2d 66 | 69 6c 65 5d 0a 0a 55 6e |p-view-f|ile]..Un|
|000013c0| 64 6f 20 63 68 61 6e 67 | 65 73 20 74 6f 20 74 68 |do chang|es to th|
|000013d0| 65 20 67 72 65 70 20 62 | 75 66 66 65 72 20 20 20 |e grep b|uffer   |
|000013e0| 20 20 20 20 20 20 20 20 | 5c 5b 64 69 72 65 64 2d |        |\[dired-|
|000013f0| 67 72 65 70 2d 75 6e 64 | 6f 5d 0a 0a 4b 65 79 62 |grep-und|o]..Keyb|
|00001400| 69 6e 64 69 6e 67 73 3a | 0a 5c 7b 64 69 72 65 64 |indings:|.\{dired|
|00001410| 2d 67 72 65 70 2d 6d 6f | 64 65 2d 6d 61 70 7d 1f |-grep-mo|de-map}.|
|00001420| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 64 69 72 65 |.(defali|as 'dire|
|00001430| 64 2d 67 72 65 70 2d 6d | 6f 64 65 20 23 5b 6e 69 |d-grep-m|ode #[ni|
|00001440| 6c 20 22 c0 20 88 c1 5c | 6e 21 88 c3 14 c5 16 06 |l ". ..\|n!......|
|00001450| c7 16 08 c9 ca 21 cb 4c | 88 cc cd 21 87 22 20 5b |.....!.L|...!." [|
|00001460| 6b 69 6c 6c 2d 61 6c 6c | 2d 6c 6f 63 61 6c 2d 76 |kill-all|-local-v|
|00001470| 61 72 69 61 62 6c 65 73 | 20 75 73 65 2d 6c 6f 63 |ariables| use-loc|
|00001480| 61 6c 2d 6d 61 70 20 64 | 69 72 65 64 2d 67 72 65 |al-map d|ired-gre|
|00001490| 70 2d 6d 6f 64 65 2d 6d | 61 70 20 64 69 72 65 64 |p-mode-m|ap dired|
|000014a0| 2d 67 72 65 70 2d 6d 6f | 64 65 20 6d 61 6a 6f 72 |-grep-mo|de major|
|000014b0| 2d 6d 6f 64 65 20 22 44 | 69 72 65 64 2d 47 72 65 |-mode "D|ired-Gre|
|000014c0| 70 22 20 6d 6f 64 65 2d | 6e 61 6d 65 20 74 20 62 |p" mode-|name t b|
|000014d0| 75 66 66 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |uffer-re|ad-only |
|000014e0| 6d 61 6b 65 2d 6c 6f 63 | 61 6c 2d 76 61 72 69 61 |make-loc|al-varia|
|000014f0| 62 6c 65 20 70 61 67 65 | 2d 64 65 6c 69 6d 69 74 |ble page|-delimit|
|00001500| 65 72 20 22 5c 6e 5c 6e | 22 20 72 75 6e 2d 68 6f |er "\n\n|" run-ho|
|00001510| 6f 6b 73 20 64 69 72 65 | 64 2d 67 72 65 70 2d 6d |oks dire|d-grep-m|
|00001520| 6f 64 65 2d 68 6f 6f 6b | 5d 20 32 20 28 23 24 20 |ode-hook|] 2 (#$ |
|00001530| 2e 20 33 39 36 33 29 5d | 29 0a 28 64 65 66 61 6c |. 3963)]|).(defal|
|00001540| 69 61 73 20 27 64 69 72 | 65 64 2d 67 72 65 70 2d |ias 'dir|ed-grep-|
|00001550| 63 75 72 72 65 6e 74 2d | 66 69 6c 65 2d 61 6e 64 |current-|file-and|
|00001560| 2d 6c 69 6e 65 20 23 5b | 6e 69 6c 20 22 8a c0 89 |-line #[|nil "...|
|00001570| 19 1a c3 79 88 c4 c5 21 | ad ab c6 60 c3 95 53 7b |...y...!|...`..S{|
|00001580| 21 11 c7 c8 c0 c9 23 ab | 83 ca 75 88 c4 cb 21 ad |!.....#.|..u...!.|
|00001590| 94 cc 79 88 c4 cd 21 ad | 8c c3 95 c0 7f 88 60 53 |..y...!.|......`S|
|000015a0| 7b 89 12 09 42 2b 87 22 | 20 5b 6e 69 6c 20 6c 69 |{...B+."| [nil li|
|000015b0| 6e 65 20 66 69 6c 65 20 | 30 20 6c 6f 6f 6b 69 6e |ne file |0 lookin|
|000015c0| 67 2d 61 74 20 22 5b 30 | 2d 39 5d 2b 3a 22 20 73 |g-at "[0|-9]+:" s|
|000015d0| 74 72 69 6e 67 2d 74 6f | 2d 69 6e 74 20 73 65 61 |tring-to|-int sea|
|000015e0| 72 63 68 2d 62 61 63 6b | 77 61 72 64 20 22 5c 6e |rch-back|ward "\n|
|000015f0| 5c 6e 22 20 6d 6f 76 65 | 20 32 20 22 48 69 74 73 |\n" move| 2 "Hits|
|00001600| 20 66 6f 72 20 22 20 31 | 20 22 20 20 20 22 5d 20 | for " 1| "   "] |
|00001610| 35 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 64 |5]).(def|alias 'd|
|00001620| 69 72 65 64 2d 67 72 65 | 70 2d 66 69 6e 64 2d 66 |ired-gre|p-find-f|
|00001630| 69 6c 65 20 23 5b 6e 69 | 6c 20 22 c0 20 89 19 ab |ile #[ni|l ". ...|
|00001640| 8f c2 09 40 21 88 c3 09 | 41 21 88 c4 c5 21 aa 83 |...@!...|A!...!..|
|00001650| c6 c7 21 29 87 22 20 5b | 64 69 72 65 64 2d 67 72 |..!)." [|dired-gr|
|00001660| 65 70 2d 63 75 72 72 65 | 6e 74 2d 66 69 6c 65 2d |ep-curre|nt-file-|
|00001670| 61 6e 64 2d 6c 69 6e 65 | 20 66 69 6c 65 20 66 69 |and-line| file fi|
|00001680| 6e 64 2d 66 69 6c 65 20 | 67 6f 74 6f 2d 6c 69 6e |nd-file |goto-lin|
|00001690| 65 20 72 65 63 65 6e 74 | 65 72 20 28 34 29 20 65 |e recent|er (4) e|
|000016a0| 72 72 6f 72 20 22 4e 6f | 20 66 69 6c 65 20 73 70 |rror "No| file sp|
|000016b0| 65 63 69 66 69 65 64 20 | 62 79 20 74 68 69 73 20 |ecified |by this |
|000016c0| 6c 69 6e 65 2e 22 5d 20 | 33 20 6e 69 6c 20 6e 69 |line."] |3 nil ni|
|000016d0| 6c 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 64 |l]).(def|alias 'd|
|000016e0| 69 72 65 64 2d 67 72 65 | 70 2d 66 69 6e 64 2d 66 |ired-gre|p-find-f|
|000016f0| 69 6c 65 2d 6f 74 68 65 | 72 2d 77 69 6e 64 6f 77 |ile-othe|r-window|
|00001700| 20 23 5b 6e 69 6c 20 22 | c0 20 89 19 ab 8f c2 09 | #[nil "|. ......|
|00001710| 40 21 88 c3 09 41 21 88 | c4 c5 21 aa 83 c6 c7 21 |@!...A!.|..!....!|
|00001720| 29 87 22 20 5b 64 69 72 | 65 64 2d 67 72 65 70 2d |)." [dir|ed-grep-|
|00001730| 63 75 72 72 65 6e 74 2d | 66 69 6c 65 2d 61 6e 64 |current-|file-and|
|00001740| 2d 6c 69 6e 65 20 66 69 | 6c 65 20 66 69 6e 64 2d |-line fi|le find-|
|00001750| 66 69 6c 65 2d 6f 74 68 | 65 72 2d 77 69 6e 64 6f |file-oth|er-windo|
|00001760| 77 20 67 6f 74 6f 2d 6c | 69 6e 65 20 72 65 63 65 |w goto-l|ine rece|
|00001770| 6e 74 65 72 20 28 34 29 | 20 65 72 72 6f 72 20 22 |nter (4)| error "|
|00001780| 4e 6f 20 66 69 6c 65 20 | 73 70 65 63 69 66 69 65 |No file |specifie|
|00001790| 64 20 62 79 20 74 68 69 | 73 20 6c 69 6e 65 2e 22 |d by thi|s line."|
|000017a0| 5d 20 33 20 6e 69 6c 20 | 6e 69 6c 5d 29 0a 28 64 |] 3 nil |nil]).(d|
|000017b0| 65 66 61 6c 69 61 73 20 | 27 64 69 72 65 64 2d 67 |efalias |'dired-g|
|000017c0| 72 65 70 2d 76 69 65 77 | 2d 66 69 6c 65 20 23 5b |rep-view|-file #[|
|000017d0| 6e 69 6c 20 22 c0 20 89 | 19 ab a4 c2 1b c4 c5 21 |nil ". .|.......!|
|000017e0| ab 94 0d 3c ab 8b 0d 40 | c6 61 ac 85 0b 0d 42 aa |...<...@|.a....B.|
|000017f0| 86 0b 0d 44 aa 81 0b 1d | c7 09 40 21 2a aa 83 c8 |...D....|..@!*...|
|00001800| c9 21 29 87 22 20 5b 64 | 69 72 65 64 2d 67 72 65 |.!)." [d|ired-gre|
|00001810| 70 2d 63 75 72 72 65 6e | 74 2d 66 69 6c 65 2d 61 |p-curren|t-file-a|
|00001820| 6e 64 2d 6c 69 6e 65 20 | 66 69 6c 65 20 23 5b 6e |nd-line |file #[n|
|00001830| 69 6c 20 22 c0 09 41 21 | 88 c2 c3 21 87 22 20 5b |il "..A!|...!." [|
|00001840| 67 6f 74 6f 2d 6c 69 6e | 65 20 66 69 6c 65 20 72 |goto-lin|e file r|
|00001850| 65 63 65 6e 74 65 72 20 | 28 34 29 5d 20 32 5d 20 |ecenter |(4)] 2] |
|00001860| 66 75 6e 20 62 6f 75 6e | 64 70 20 76 69 65 77 2d |fun boun|dp view-|
|00001870| 68 6f 6f 6b 20 6c 61 6d | 62 64 61 20 76 69 65 77 |hook lam|bda view|
|00001880| 2d 66 69 6c 65 20 65 72 | 72 6f 72 20 22 4e 6f 20 |-file er|ror "No |
|00001890| 66 69 6c 65 20 73 70 65 | 63 69 66 69 65 64 20 62 |file spe|cified b|
|000018a0| 79 20 74 68 69 73 20 6c | 69 6e 65 2e 22 5d 20 33 |y this l|ine."] 3|
|000018b0| 20 6e 69 6c 20 6e 69 6c | 5d 29 0a 23 40 34 35 20 | nil nil|]).#@45 |
|000018c0| 4d 6f 76 65 73 20 74 6f | 20 74 68 65 20 6e 65 78 |Moves to| the nex|
|000018d0| 74 2c 20 6f 72 20 6e 65 | 78 74 20 41 52 47 74 68 |t, or ne|xt ARGth|
|000018e0| 2c 20 67 72 65 70 20 68 | 69 74 2e 1f 0a 28 64 65 |, grep h|it...(de|
|000018f0| 66 61 6c 69 61 73 20 27 | 64 69 72 65 64 2d 67 72 |falias '|dired-gr|
|00001900| 65 70 2d 6e 65 78 74 2d | 68 69 74 20 23 5b 28 61 |ep-next-|hit #[(a|
|00001910| 72 67 29 20 22 c0 79 88 | c1 c2 c3 c4 0d 24 ab 84 |rg) ".y.|.....$..|
|00001920| c6 94 62 87 c7 c8 21 87 | 22 20 5b 31 20 72 65 2d |..b...!.|" [1 re-|
|00001930| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00001940| 5e 5b 30 2d 39 5d 22 20 | 6e 69 6c 20 6d 6f 76 65 |^[0-9]" |nil move|
|00001950| 20 61 72 67 20 30 20 65 | 72 72 6f 72 20 22 4e 6f | arg 0 e|rror "No|
|00001960| 20 66 75 72 74 68 65 72 | 20 67 72 65 70 20 68 69 | further| grep hi|
|00001970| 74 73 22 5d 20 35 20 28 | 23 24 20 2e 20 36 33 33 |ts"] 5 (|#$ . 633|
|00001980| 36 29 20 22 70 22 5d 29 | 0a 23 40 35 33 20 4d 6f |6) "p"])|.#@53 Mo|
|00001990| 76 65 73 20 74 6f 20 74 | 68 65 20 70 72 65 76 69 |ves to t|he previ|
|000019a0| 6f 75 73 2c 20 6f 72 20 | 70 72 65 76 69 6f 75 73 |ous, or |previous|
|000019b0| 20 41 52 47 74 68 2c 20 | 67 72 65 70 20 68 69 74 | ARGth, |grep hit|
|000019c0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 64 69 |...(defa|lias 'di|
|000019d0| 72 65 64 2d 67 72 65 70 | 2d 70 72 65 76 69 6f 75 |red-grep|-previou|
|000019e0| 73 2d 68 69 74 20 23 5b | 28 61 72 67 29 20 22 c0 |s-hit #[|(arg) ".|
|000019f0| 79 88 c1 c2 c3 c4 0d 24 | ae 83 c6 c7 21 87 22 20 |y......$|....!." |
|00001a00| 5b 30 20 72 65 2d 73 65 | 61 72 63 68 2d 62 61 63 |[0 re-se|arch-bac|
|00001a10| 6b 77 61 72 64 20 22 5e | 5b 30 2d 39 5d 22 20 6e |kward "^|[0-9]" n|
|00001a20| 69 6c 20 6d 6f 76 65 20 | 61 72 67 20 65 72 72 6f |il move |arg erro|
|00001a30| 72 20 22 4e 6f 20 66 75 | 72 74 68 65 72 20 67 72 |r "No fu|rther gr|
|00001a40| 65 70 20 68 69 74 73 22 | 5d 20 35 20 28 23 24 20 |ep hits"|] 5 (#$ |
|00001a50| 2e 20 36 35 34 32 29 20 | 22 70 22 5d 29 0a 28 62 |. 6542) |"p"]).(b|
|00001a60| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 4d 88 c2 c3 |yte-code| "..M...|
|00001a70| 4d 87 22 20 5b 64 69 72 | 65 64 2d 67 72 65 70 2d |M." [dir|ed-grep-|
|00001a80| 61 64 76 65 72 74 69 7a | 65 64 2d 6e 65 78 74 2d |advertiz|ed-next-|
|00001a90| 68 69 74 20 64 69 72 65 | 64 2d 67 72 65 70 2d 6e |hit dire|d-grep-n|
|00001aa0| 65 78 74 2d 68 69 74 20 | 64 69 72 65 64 2d 67 72 |ext-hit |dired-gr|
|00001ab0| 65 70 2d 61 64 76 65 72 | 74 69 7a 65 64 2d 70 72 |ep-adver|tized-pr|
|00001ac0| 65 76 69 6f 75 73 2d 68 | 69 74 20 64 69 72 65 64 |evious-h|it dired|
|00001ad0| 2d 67 72 65 70 2d 70 72 | 65 76 69 6f 75 73 2d 68 |-grep-pr|evious-h|
|00001ae0| 69 74 5d 20 32 29 0a 23 | 40 31 30 37 20 44 65 6c |it] 2).#|@107 Del|
|00001af0| 65 74 65 73 20 74 68 65 | 20 63 75 72 72 65 6e 74 |etes the| current|
|00001b00| 20 61 6e 64 20 41 52 47 | 20 2d 20 31 20 66 6f 6c | and ARG| - 1 fol|
|00001b10| 6c 6f 77 69 6e 67 20 67 | 72 65 70 20 6f 75 74 70 |lowing g|rep outp|
|00001b20| 75 74 20 70 61 67 65 73 | 2e 0a 49 66 20 41 52 47 |ut pages|..If ARG|
|00001b30| 20 69 73 20 6e 65 67 61 | 74 69 76 65 2c 20 64 65 | is nega|tive, de|
|00001b40| 6c 65 74 65 73 20 70 72 | 65 63 65 64 69 6e 67 20 |letes pr|eceding |
|00001b50| 70 61 67 65 73 2e 1f 0a | 28 64 65 66 61 6c 69 61 |pages...|(defalia|
|00001b60| 73 20 27 64 69 72 65 64 | 2d 67 72 65 70 2d 64 65 |s 'dired|-grep-de|
|00001b70| 6c 65 74 65 2d 70 61 67 | 65 20 23 5b 28 61 72 67 |lete-pag|e #[(arg|
|00001b80| 29 20 22 c0 c1 5c 6e c0 | 57 c1 1b 1c 1d 1e 06 0c |) "..\n.|W.......|
|00001b90| ab 83 5c 6e 5b 12 0e 06 | 5c 6e 57 ad c2 0c ab 83 |..\n[...|\nW.....|
|00001ba0| 6f aa 81 6d 3f ad b8 c7 | c8 21 ac 8a c9 ca c1 cb |o..m?...|.!......|
|00001bb0| 23 ab 83 cc 75 88 60 13 | cd ca c1 cb 23 ab 83 ce |#...u.`.|....#...|
|00001bc0| 75 88 0b 60 7c 88 6f ab | 87 6d ac 84 cf cc 21 88 |u..`|.o.|.m....!.|
|00001bd0| 0c ab 84 d0 c1 78 88 0e | 06 54 89 16 06 aa 3a 2c |.....x..|.T....:,|
|00001be0| 87 22 20 5b 30 20 6e 69 | 6c 20 61 72 67 20 73 74 |." [0 ni|l arg st|
|00001bf0| 61 72 74 20 62 61 63 6b | 77 61 72 64 20 62 75 66 |art back|ward buf|
|00001c00| 66 65 72 2d 72 65 61 64 | 2d 6f 6e 6c 79 20 64 6f |fer-read|-only do|
|00001c10| 6e 65 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 22 5e |ne looki|ng-at "^|
|00001c20| 5c 6e 22 20 73 65 61 72 | 63 68 2d 62 61 63 6b 77 |\n" sear|ch-backw|
|00001c30| 61 72 64 20 22 5c 6e 5c | 6e 22 20 6d 6f 76 65 20 |ard "\n\|n" move |
|00001c40| 31 20 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |1 search|-forward|
|00001c50| 20 2d 31 20 64 65 6c 65 | 74 65 2d 63 68 61 72 20 | -1 dele|te-char |
|00001c60| 22 5c 6e 22 5d 20 35 20 | 28 23 24 20 2e 20 36 38 |"\n"] 5 |(#$ . 68|
|00001c70| 39 33 29 20 22 70 22 5d | 29 0a 23 40 36 38 20 44 |93) "p"]|).#@68 D|
|00001c80| 65 6c 65 74 65 73 20 74 | 68 65 20 63 75 72 72 65 |eletes t|he curre|
|00001c90| 6e 74 2c 20 61 6e 64 20 | 61 6c 6c 20 70 72 65 63 |nt, and |all prec|
|00001ca0| 65 64 69 6e 67 20 70 61 | 67 65 73 20 66 72 6f 6d |eding pa|ges from|
|00001cb0| 20 74 68 65 20 67 72 65 | 70 20 62 75 66 66 65 72 | the gre|p buffer|
|00001cc0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 64 69 |...(defa|lias 'di|
|00001cd0| 72 65 64 2d 67 72 65 70 | 2d 64 65 6c 65 74 65 2d |red-grep|-delete-|
|00001ce0| 70 72 65 63 65 64 69 6e | 67 2d 70 61 67 65 73 20 |precedin|g-pages |
|00001cf0| 23 5b 6e 69 6c 20 22 c0 | 19 c2 c3 21 ab 85 c4 75 |#[nil ".|...!...u|
|00001d00| 88 aa 86 c5 c6 c0 c7 23 | 88 65 60 7c 29 87 22 20 |.......#|.e`|)." |
|00001d10| 5b 6e 69 6c 20 62 75 66 | 66 65 72 2d 72 65 61 64 |[nil buf|fer-read|
|00001d20| 2d 6f 6e 6c 79 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |-only lo|oking-at|
|00001d30| 20 22 5e 5c 6e 22 20 31 | 20 73 65 61 72 63 68 2d | "^\n" 1| search-|
|00001d40| 66 6f 72 77 61 72 64 20 | 22 5c 6e 5c 6e 22 20 6d |forward |"\n\n" m|
|00001d50| 6f 76 65 5d 20 34 20 28 | 23 24 20 2e 20 37 32 39 |ove] 4 (|#$ . 729|
|00001d60| 35 29 20 6e 69 6c 5d 29 | 0a 23 40 31 34 31 20 44 |5) nil])|.#@141 D|
|00001d70| 65 6c 65 74 65 73 20 74 | 68 65 20 63 75 72 72 65 |eletes t|he curre|
|00001d80| 6e 74 20 6c 69 6e 65 20 | 61 6e 64 20 41 52 47 20 |nt line |and ARG |
|00001d90| 66 6f 6c 6c 6f 77 69 6e | 67 20 6c 69 6e 65 73 20 |followin|g lines |
|00001da0| 66 72 6f 6d 20 74 68 65 | 20 67 72 65 70 20 62 75 |from the| grep bu|
|00001db0| 66 66 65 72 2e 0a 4f 6e | 6c 79 20 6f 70 65 72 61 |ffer..On|ly opera|
|00001dc0| 74 65 73 20 6f 6e 20 6c | 69 6e 65 73 20 77 68 69 |tes on l|ines whi|
|00001dd0| 63 68 20 63 6f 72 72 65 | 73 70 6f 6e 64 20 74 6f |ch corre|spond to|
|00001de0| 20 66 69 6c 65 20 6c 69 | 6e 65 73 20 66 6f 72 20 | file li|nes for |
|00001df0| 67 72 65 70 20 68 69 74 | 73 2e 1f 0a 28 64 65 66 |grep hit|s...(def|
|00001e00| 61 6c 69 61 73 20 27 64 | 69 72 65 64 2d 67 72 65 |alias 'd|ired-gre|
|00001e10| 70 2d 64 65 6c 65 74 65 | 2d 6c 69 6e 65 20 23 5b |p-delete|-line #[|
|00001e20| 28 61 72 67 29 20 22 60 | c0 09 c2 57 c2 1b 1c 1d |(arg) "`|...W....|
|00001e30| 1e 06 c2 79 88 0c ab 83 | 09 5b 11 c7 c8 21 ab a2 |...y....|.[...!..|
|00001e40| 0b 09 57 ad a0 60 c9 79 | 88 60 7c 88 0c ab 83 ca |..W..`.y|.`|.....|
|00001e50| 79 88 c7 c8 21 ab 86 0b | 54 89 13 aa 64 09 89 13 |y...!...|T...d...|
|00001e60| aa 5f 0e 06 62 2c 87 22 | 20 5b 6e 69 6c 20 61 72 |._..b,."| [nil ar|
|00001e70| 67 20 30 20 64 6f 6e 65 | 20 62 61 63 6b 77 61 72 |g 0 done| backwar|
|00001e80| 64 20 62 75 66 66 65 72 | 2d 72 65 61 64 2d 6f 6e |d buffer|-read-on|
|00001e90| 6c 79 20 6f 70 6f 69 6e | 74 20 6c 6f 6f 6b 69 6e |ly opoin|t lookin|
|00001ea0| 67 2d 61 74 20 22 5b 30 | 2d 39 5d 2b 3a 22 20 31 |g-at "[0|-9]+:" 1|
|00001eb0| 20 2d 31 5d 20 35 20 28 | 23 24 20 2e 20 37 35 33 | -1] 5 (|#$ . 753|
|00001ec0| 35 29 20 22 70 22 5d 29 | 0a 23 40 37 37 20 44 65 |5) "p"])|.#@77 De|
|00001ed0| 6c 65 74 65 73 20 61 6c | 6c 20 70 61 67 65 73 20 |letes al|l pages |
|00001ee0| 77 68 69 63 68 20 67 72 | 65 70 20 73 6f 6d 65 20 |which gr|ep some |
|00001ef0| 66 69 6c 65 20 66 6f 72 | 20 74 68 65 20 70 61 74 |file for| the pat|
|00001f00| 74 65 72 6e 20 6f 66 20 | 74 68 65 20 63 75 72 72 |tern of |the curr|
|00001f10| 65 6e 74 20 70 61 67 65 | 2e 1f 0a 28 64 65 66 61 |ent page|...(defa|
|00001f20| 6c 69 61 73 20 27 64 69 | 72 65 64 2d 67 72 65 70 |lias 'di|red-grep|
|00001f30| 2d 64 65 6c 65 74 65 2d | 67 72 65 70 2d 66 6f 72 |-delete-|grep-for|
|00001f40| 20 23 5b 6e 69 6c 20 22 | 8a 6d ac 86 6c ac 83 c0 | #[nil "|.m..l...|
|00001f50| 75 88 c1 c2 21 88 8a c3 | 7f 88 60 29 1c c5 c6 0c |u...!...|..`)....|
|00001f60| c7 23 ad 83 60 0c 7b 89 | 1e 08 ad b5 65 62 88 6d |.#..`.{.|....eb.m|
|00001f70| 3f ad ae 8a c3 7f 88 60 | 29 1c c5 c6 0c c7 23 ad |?......`|).....#.|
|00001f80| 83 60 0c 7b 1e 09 0e 08 | 0e 09 6b ab 8a ca c0 21 |.`.{....|..k....!|
|00001f90| 88 cb c3 77 88 aa 87 6d | ac 84 c1 c0 21 88 2a aa |...w...m|....!.*.|
|00001fa0| 4e 2b 87 22 20 5b 31 20 | 66 6f 72 77 61 72 64 2d |N+." [1 |forward-|
|00001fb0| 70 61 67 65 20 2d 31 20 | 6e 69 6c 20 65 6f 6c 20 |page -1 |nil eol |
|00001fc0| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00001fd0| 20 67 72 65 70 20 22 20 | 74 20 6c 69 6e 65 20 74 | grep " |t line t|
|00001fe0| 68 69 73 2d 6c 69 6e 65 | 20 64 69 72 65 64 2d 67 |his-line| dired-g|
|00001ff0| 72 65 70 2d 64 65 6c 65 | 74 65 2d 70 61 67 65 20 |rep-dele|te-page |
|00002000| 22 5c 6e 22 5d 20 35 20 | 28 23 24 20 2e 20 37 38 |"\n"] 5 |(#$ . 78|
|00002010| 38 36 29 20 6e 69 6c 5d | 29 0a 23 40 31 31 34 20 |86) nil]|).#@114 |
|00002020| 44 65 6c 65 74 65 20 61 | 6c 6c 20 70 61 67 65 73 |Delete a|ll pages|
|00002030| 20 66 6f 72 20 77 68 69 | 63 68 20 74 68 65 72 65 | for whi|ch there|
|00002040| 20 77 65 72 65 20 6e 6f | 20 67 72 65 70 20 68 69 | were no| grep hi|
|00002050| 74 73 2e 0a 44 65 6c 65 | 74 65 73 20 70 61 67 65 |ts..Dele|tes page|
|00002060| 73 20 66 6f 72 20 77 68 | 69 63 68 20 67 72 65 70 |s for wh|ich grep|
|00002070| 20 66 61 69 6c 65 64 20 | 62 65 63 61 75 73 65 20 | failed |because |
|00002080| 6f 66 20 61 6e 20 65 72 | 72 6f 72 20 74 6f 6f 2e |of an er|ror too.|
|00002090| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 64 69 72 |..(defal|ias 'dir|
|000020a0| 65 64 2d 67 72 65 70 2d | 64 65 6c 65 74 65 2d 6d |ed-grep-|delete-m|
|000020b0| 69 73 73 65 73 20 23 5b | 6e 69 6c 20 22 8a 65 62 |isses #[|nil ".eb|
|000020c0| 88 6d 3f ad 95 c0 c1 21 | ab 8a c2 c3 21 88 c4 c5 |.m?....!|....!...|
|000020d0| 77 88 aa 6d c6 c3 21 88 | aa 67 29 87 22 20 5b 6c |w..m..!.|.g)." [l|
|000020e0| 6f 6f 6b 69 6e 67 2d 61 | 74 20 22 47 72 65 70 20 |ooking-a|t "Grep |
|000020f0| 66 61 69 6c 65 64 20 5c | 5c 7c 4e 6f 20 68 69 74 |failed \|\|No hit|
|00002100| 73 20 22 20 64 69 72 65 | 64 2d 67 72 65 70 2d 64 |s " dire|d-grep-d|
|00002110| 65 6c 65 74 65 2d 70 61 | 67 65 20 31 20 22 5c 6e |elete-pa|ge 1 "\n|
|00002120| 22 20 6e 69 6c 20 66 6f | 72 77 61 72 64 2d 70 61 |" nil fo|rward-pa|
|00002130| 67 65 5d 20 32 20 28 23 | 24 20 2e 20 38 32 32 34 |ge] 2 (#|$ . 8224|
|00002140| 29 20 6e 69 6c 5d 29 0a | 23 40 33 36 20 55 6e 64 |) nil]).|#@36 Und|
|00002150| 6f 65 73 20 64 65 6c 65 | 74 69 6f 6e 73 20 69 6e |oes dele|tions in|
|00002160| 20 61 20 67 72 65 70 20 | 62 75 66 66 65 72 2e 1f | a grep |buffer..|
|00002170| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 64 69 72 65 |.(defali|as 'dire|
|00002180| 64 2d 67 72 65 70 2d 75 | 6e 64 6f 20 23 5b 6e 69 |d-grep-u|ndo #[ni|
|00002190| 6c 20 22 c0 19 c2 20 29 | 87 22 20 5b 6e 69 6c 20 |l "... )|." [nil |
|000021a0| 62 75 66 66 65 72 2d 72 | 65 61 64 2d 6f 6e 6c 79 |buffer-r|ead-only|
|000021b0| 20 75 6e 64 6f 5d 20 31 | 20 28 23 24 20 2e 20 38 | undo] 1| (#$ . 8|
|000021c0| 35 32 35 29 20 6e 69 6c | 5d 29 0a 28 64 65 66 61 |525) nil|]).(defa|
|000021d0| 6c 69 61 73 20 27 64 69 | 72 65 64 2d 67 72 65 70 |lias 'di|red-grep|
|000021e0| 2d 70 61 72 73 65 2d 66 | 6c 61 67 73 20 23 5b 28 |-parse-f|lags #[(|
|000021f0| 73 74 72 69 6e 67 29 20 | 22 08 09 6b ab 82 5c 6e |string) |"..k..\n|
|00002200| 87 09 47 c3 89 c4 1d 1e | 06 1e 07 1e 08 0e 07 0e |..G.....|........|
|00002210| 08 57 ab 90 09 0e 07 48 | c9 55 ab 88 0e 07 54 89 |.W.....H|.U....T.|
|00002220| 16 07 aa 6b 0e 07 0e 08 | 57 ab bb 0e 07 16 06 0e |...k....|W.......|
|00002230| 07 0e 08 57 ab 90 09 0e | 07 48 c9 55 ac 88 0e 07 |...W....|.H.U....|
|00002240| 54 89 16 07 aa 6b 09 0e | 06 0e 07 4f 0d 42 15 0e |T....k..|...O.B..|
|00002250| 07 0e 08 57 ab 4e 09 0e | 07 48 c9 55 ab 46 0e 07 |...W.N..|.H.U.F..|
|00002260| 54 89 16 07 aa 6b 09 10 | 0d 9f 89 12 2c 87 22 20 |T....k..|....,." |
|00002270| 5b 64 69 72 65 64 2d 67 | 72 65 70 2d 70 61 72 73 |[dired-g|rep-pars|
|00002280| 65 2d 66 6c 61 67 73 2d | 63 61 63 68 65 20 73 74 |e-flags-|cache st|
|00002290| 72 69 6e 67 20 64 69 72 | 65 64 2d 67 72 65 70 2d |ring dir|ed-grep-|
|000022a0| 70 61 72 73 65 2d 66 6c | 61 67 73 2d 63 61 63 68 |parse-fl|ags-cach|
|000022b0| 65 2d 72 65 73 75 6c 74 | 20 30 20 6e 69 6c 20 72 |e-result| 0 nil r|
|000022c0| 65 73 75 6c 74 20 73 74 | 61 72 74 20 70 6f 69 6e |esult st|art poin|
|000022d0| 74 65 72 20 6c 65 6e 67 | 74 68 20 3f 5c 20 5d 20 |ter leng|th ?\ ] |
|000022e0| 35 5d 29 0a 23 40 31 35 | 38 20 47 72 65 70 20 66 |5]).#@15|8 Grep f|
|000022f0| 6f 72 20 50 41 54 54 45 | 52 4e 20 69 6e 20 46 49 |or PATTE|RN in FI|
|00002300| 4c 45 2e 0a 4f 70 74 69 | 6f 6e 61 6c 20 46 4c 41 |LE..Opti|onal FLA|
|00002310| 47 53 20 61 72 65 20 66 | 6c 61 67 73 20 74 6f 20 |GS are f|lags to |
|00002320| 70 61 73 73 20 74 6f 20 | 74 68 65 20 67 72 65 70 |pass to |the grep|
|00002330| 20 70 72 6f 67 72 61 6d | 2e 0a 57 68 65 6e 20 75 | program|..When u|
|00002340| 73 65 64 20 69 6e 74 65 | 72 61 63 74 69 76 65 6c |sed inte|ractivel|
|00002350| 79 2c 20 77 69 6c 6c 20 | 70 72 6f 6d 70 74 20 66 |y, will |prompt f|
|00002360| 6f 72 20 46 4c 41 47 53 | 20 69 66 20 61 20 70 72 |or FLAGS| if a pr|
|00002370| 65 66 69 78 20 61 72 67 | 75 6d 65 6e 74 20 69 73 |efix arg|ument is|
|00002380| 20 75 73 65 64 2e 1f 0a | 28 64 65 66 61 6c 69 61 | used...|(defalia|
|00002390| 73 20 27 64 69 72 65 64 | 2d 67 72 65 70 2d 66 69 |s 'dired|-grep-fi|
|000023a0| 6c 65 20 23 5b 28 70 61 | 74 74 65 72 6e 20 66 69 |le #[(pa|ttern fi|
|000023b0| 6c 65 20 26 6f 70 74 69 | 6f 6e 61 6c 20 66 6c 61 |le &opti|onal fla|
|000023c0| 67 73 29 20 22 c0 09 21 | 11 5c 6e 3c ab 88 c3 c4 |gs) "..!|.\n<....|
|000023d0| 5c 6e c5 23 12 aa 88 c6 | c7 5c 6e 5c 22 ab 82 c8 |\n.#....|.\n\"...|
|000023e0| 12 c9 09 21 89 1e 5c 6e | ab 9a cb 0e 5c 6e 21 ab |...!..\n|....\n!.|
|000023f0| 94 cc cd ce cf 0e 5c 6e | 21 5c 22 21 ab 89 8a 0e |......\n|!\"!....|
|00002400| 5c 6e 71 88 d0 20 88 29 | 29 d1 20 c6 0e 12 09 5c |\nq.. .)|). ....\|
|00002410| 22 d3 89 89 1e 14 1e 15 | 1e 16 1e 17 1e 18 d9 da |".......|........|
|00002420| db 8f 16 15 0e 16 84 e8 | 00 8a 0e 18 71 88 64 62 |........|....q.db|
|00002430| 88 d3 89 89 1e 1c 1e 1d | 1e 1e 6f ac 83 df 63 88 |........|..o...c.|
|00002440| 60 16 1d e0 63 88 5c 6e | c8 98 ac 85 5c 6e c5 b1 |`...c.\n|....\n..|
|00002450| 02 88 e1 0e 5c 22 e3 09 | e4 b1 05 88 60 16 1c d9 |....\"..|....`...|
|00002460| e5 e6 8f 88 0e 16 ab 9f | 0e 1c 64 55 ab 8c 0e 1c |........|..dU....|
|00002470| 53 62 88 e7 e8 21 88 e9 | 63 88 0e 1d 62 88 e7 ea |Sb...!..|c...b...|
|00002480| 21 88 eb 63 88 aa b2 0e | 1c 64 55 ab 9a 0e 1d 62 |!..c....|.dU....b|
|00002490| 88 e7 ec 21 88 ed 63 88 | ec 79 88 d3 7f 88 e7 e8 |...!..c.|.y......|
|000024a0| 21 88 e9 63 88 aa 92 0e | 1c 62 88 ee ef 21 ac 89 |!..c....|.b...!..|
|000024b0| 0e 1c d3 7f 88 60 7b 16 | 16 2c f0 20 1e 31 f2 8e |.....`{.|.,. .1..|
|000024c0| f3 0e 18 21 88 64 62 88 | 2a 0e 15 ab 85 f4 0e 15 |...!.db.|*.......|
|000024d0| 21 88 0e 16 2d 87 22 20 | 5b 65 78 70 61 6e 64 2d |!...-." |[expand-|
|000024e0| 66 69 6c 65 2d 6e 61 6d | 65 20 66 69 6c 65 20 66 |file-nam|e file f|
|000024f0| 6c 61 67 73 20 6d 61 70 | 63 6f 6e 63 61 74 20 69 |lags map|concat i|
|00002500| 64 65 6e 74 69 74 79 20 | 22 20 22 20 73 74 72 69 |dentity |" " stri|
|00002510| 6e 67 2d 6d 61 74 63 68 | 20 22 5e 20 2b 24 22 20 |ng-match| "^ +$" |
|00002520| 22 22 20 67 65 74 2d 66 | 69 6c 65 2d 62 75 66 66 |"" get-f|ile-buff|
|00002530| 65 72 20 66 69 6c 65 2d | 62 75 66 66 20 62 75 66 |er file-|buff buf|
|00002540| 66 65 72 2d 6d 6f 64 69 | 66 69 65 64 2d 70 20 79 |fer-modi|fied-p y|
|00002550| 2d 6f 72 2d 6e 2d 70 20 | 66 6f 72 6d 61 74 20 22 |-or-n-p |format "|
|00002560| 53 61 76 65 20 62 75 66 | 66 65 72 20 25 73 3f 20 |Save buf|fer %s? |
|00002570| 22 20 62 75 66 66 65 72 | 2d 6e 61 6d 65 20 73 61 |" buffer|-name sa|
|00002580| 76 65 2d 62 75 66 66 65 | 72 20 64 69 72 65 64 2d |ve-buffe|r dired-|
|00002590| 67 72 65 70 2d 67 65 74 | 2d 72 65 73 75 6c 74 73 |grep-get|-results|
|000025a0| 2d 62 75 66 66 65 72 20 | 64 69 72 65 64 2d 67 72 |-buffer |dired-gr|
|000025b0| 65 70 2d 63 6f 6d 70 72 | 65 73 73 65 64 2d 66 69 |ep-compr|essed-fi|
|000025c0| 6c 65 20 6e 69 6c 20 6a | 6b 61 2d 63 6f 6d 70 72 |le nil j|ka-compr|
|000025d0| 2d 63 6f 6d 70 72 65 73 | 73 69 6f 6e 2d 69 6e 66 |-compres|sion-inf|
|000025e0| 6f 2d 6c 69 73 74 20 74 | 65 6d 70 2d 66 69 6c 65 |o-list t|emp-file|
|000025f0| 20 66 61 69 6c 65 64 20 | 63 6f 6d 70 72 65 73 73 | failed |compress|
|00002600| 65 64 20 62 75 66 66 65 | 72 20 65 72 72 20 28 66 |ed buffe|r err (f|
|00002610| 69 6c 65 2d 6c 6f 63 61 | 6c 2d 63 6f 70 79 20 66 |ile-loca|l-copy f|
|00002620| 69 6c 65 29 20 28 28 65 | 72 72 6f 72 20 28 62 79 |ile) ((e|rror (by|
|00002630| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 5c 6e 5c 22 13 |te-code |"..\n\".|
|00002640| c4 87 22 20 5b 66 6f 72 | 6d 61 74 20 22 25 73 22 |.." [for|mat "%s"|
|00002650| 20 65 72 72 20 66 61 69 | 6c 65 64 20 6e 69 6c 5d | err fai|led nil]|
|00002660| 20 33 29 29 29 20 70 6f | 73 2d 32 20 70 6f 73 2d | 3))) po|s-2 pos-|
|00002670| 31 20 62 75 66 66 65 72 | 2d 72 65 61 64 2d 6f 6e |1 buffer|-read-on|
|00002680| 6c 79 20 22 5c 6e 22 20 | 22 48 69 74 73 20 66 6f |ly "\n" |"Hits fo|
|00002690| 72 20 67 72 65 70 20 22 | 20 22 5c 22 22 20 70 61 |r grep "| "\"" pa|
|000026a0| 74 74 65 72 6e 20 22 5c | 22 20 69 6e 5c 6e 20 20 |ttern "\|" in\n  |
|000026b0| 20 22 20 22 3a 5c 6e 22 | 20 28 62 79 74 65 2d 63 | " ":\n"| (byte-c|
|000026c0| 6f 64 65 20 22 c0 c1 5c | 6e ab 83 c3 aa 81 0c 0d |ode "..\|n.......|
|000026d0| ae 82 0e 06 0e 07 c8 5c | 6e ab 91 c9 0e 5c 6e cb |.......\|n....\n.|
|000026e0| 0c cc 0e 0d ce 0e 0f d0 | b0 08 44 aa 8a d1 d2 0e |........|..D.....|
|000026f0| 0d 21 d3 0e 0f 44 5c 22 | 26 06 87 22 20 5b 61 70 |.!...D\"|&.." [ap|
|00002700| 70 6c 79 20 63 61 6c 6c | 2d 70 72 6f 63 65 73 73 |ply call|-process|
|00002710| 20 63 6f 6d 70 72 65 73 | 73 65 64 20 22 73 68 22 | compres|sed "sh"|
|00002720| 20 64 69 72 65 64 2d 67 | 72 65 70 2d 70 72 6f 67 | dired-g|rep-prog|
|00002730| 72 61 6d 20 74 65 6d 70 | 2d 66 69 6c 65 20 66 69 |ram temp|-file fi|
|00002740| 6c 65 20 62 75 66 66 65 | 72 20 74 20 22 2d 63 22 |le buffe|r t "-c"|
|00002750| 20 64 69 72 65 64 2d 67 | 72 65 70 2d 7a 63 61 74 | dired-g|rep-zcat|
|00002760| 2d 70 72 6f 67 72 61 6d | 20 22 20 7c 22 20 22 20 |-program| " |" " |
|00002770| 22 20 66 6c 61 67 73 20 | 22 20 2d 6e 20 27 22 20 |" flags |" -n '" |
|00002780| 70 61 74 74 65 72 6e 20 | 22 27 22 20 61 70 70 65 |pattern |"'" appe|
|00002790| 6e 64 20 64 69 72 65 64 | 2d 67 72 65 70 2d 70 61 |nd dired|-grep-pa|
|000027a0| 72 73 65 2d 66 6c 61 67 | 73 20 22 2d 6e 22 5d 20 |rse-flag|s "-n"] |
|000027b0| 31 35 29 20 28 28 65 72 | 72 6f 72 20 28 62 79 74 |15) ((er|ror (byt|
|000027c0| 65 2d 63 6f 64 65 20 22 | c0 c1 5c 6e 5c 22 13 c0 |e-code "|..\n\"..|
|000027d0| 87 22 20 5b 66 6f 72 6d | 61 74 20 22 25 73 22 20 |." [form|at "%s" |
|000027e0| 65 72 72 20 66 61 69 6c | 65 64 5d 20 33 29 29 29 |err fail|ed] 3)))|
|000027f0| 20 64 65 6c 65 74 65 2d | 63 68 61 72 20 2d 31 20 | delete-|char -1 |
|00002800| 22 2e 22 20 34 20 22 47 | 72 65 70 20 66 61 69 6c |"." 4 "G|rep fail|
|00002810| 65 64 22 20 31 20 22 4e | 6f 20 68 22 20 6c 6f 6f |ed" 1 "N|o h" loo|
|00002820| 6b 69 6e 67 2d 61 74 20 | 22 5b 30 2d 39 5d 2b 3a |king-at |"[0-9]+:|
|00002830| 22 20 73 65 6c 65 63 74 | 65 64 2d 77 69 6e 64 6f |" select|ed-windo|
|00002840| 77 20 63 75 72 72 2d 77 | 69 6e 64 20 28 28 73 65 |w curr-w|ind ((se|
|00002850| 6c 65 63 74 2d 77 69 6e | 64 6f 77 20 63 75 72 72 |lect-win|dow curr|
|00002860| 2d 77 69 6e 64 29 29 20 | 70 6f 70 2d 74 6f 2d 62 |-wind)) |pop-to-b|
|00002870| 75 66 66 65 72 20 64 69 | 72 65 64 2d 67 72 65 70 |uffer di|red-grep|
|00002880| 2d 64 65 6c 65 74 65 2d | 6c 6f 63 61 6c 2d 74 65 |-delete-|local-te|
|00002890| 6d 70 2d 66 69 6c 65 5d | 20 36 20 28 23 24 20 2e |mp-file]| 6 (#$ .|
|000028a0| 20 38 39 33 38 29 20 28 | 6c 65 74 2a 20 28 28 73 | 8938) (|let* ((s|
|000028b0| 77 69 74 63 68 65 73 20 | 28 69 66 20 28 63 6f 6e |witches |(if (con|
|000028c0| 73 70 20 63 75 72 72 65 | 6e 74 2d 70 72 65 66 69 |sp curre|nt-prefi|
|000028d0| 78 2d 61 72 67 29 20 28 | 72 65 61 64 2d 73 74 72 |x-arg) (|read-str|
|000028e0| 69 6e 67 20 22 53 77 69 | 74 63 68 65 73 20 66 6f |ing "Swi|tches fo|
|000028f0| 72 20 67 72 65 70 3a 20 | 22 29 20 64 69 72 65 64 |r grep: |") dired|
|00002900| 2d 67 72 65 70 2d 73 77 | 69 74 63 68 65 73 29 29 |-grep-sw|itches))|
|00002910| 20 28 70 72 6f 6d 70 74 | 20 28 66 6f 72 6d 61 74 | (prompt| (format|
|00002920| 20 22 67 72 65 70 20 25 | 73 66 6f 72 20 70 61 74 | "grep %|sfor pat|
|00002930| 74 65 72 6e 22 20 28 69 | 66 20 28 73 74 72 69 6e |tern" (i|f (strin|
|00002940| 67 70 20 73 77 69 74 63 | 68 65 73 29 20 28 69 66 |gp switc|hes) (if|
|00002950| 20 28 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 73 | (string|-match s|
|00002960| 77 69 74 63 68 65 73 20 | 22 5e 20 2a 24 22 29 20 |witches |"^ *$") |
|00002970| 22 22 20 28 63 6f 6e 63 | 61 74 20 73 77 69 74 63 |"" (conc|at switc|
|00002980| 68 65 73 20 22 20 22 29 | 29 20 28 69 66 20 73 77 |hes " ")|) (if sw|
|00002990| 69 74 63 68 65 73 20 28 | 63 6f 6e 63 61 74 20 28 |itches (|concat (|
|000029a0| 6d 61 70 63 6f 6e 63 61 | 74 20 27 69 64 65 6e 74 |mapconca|t 'ident|
|000029b0| 69 74 79 20 73 77 69 74 | 63 68 65 73 20 22 20 22 |ity swit|ches " "|
|000029c0| 29 20 22 20 22 29 20 22 | 22 29 29 29 29 20 28 70 |) " ") "|")))) (p|
|000029d0| 61 74 74 65 72 6e 20 28 | 64 69 72 65 64 2d 72 65 |attern (|dired-re|
|000029e0| 61 64 2d 77 69 74 68 2d | 68 69 73 74 6f 72 79 20 |ad-with-|history |
|000029f0| 28 63 6f 6e 63 61 74 20 | 70 72 6f 6d 70 74 20 22 |(concat |prompt "|
|00002a00| 3a 20 22 29 20 6e 69 6c | 20 27 67 72 65 70 2d 68 |: ") nil| 'grep-h|
|00002a10| 69 73 74 6f 72 79 29 29 | 20 28 66 69 6c 65 20 28 |istory))| (file (|
|00002a20| 72 65 61 64 2d 66 69 6c | 65 2d 6e 61 6d 65 20 28 |read-fil|e-name (|
|00002a30| 63 6f 6e 63 61 74 20 70 | 72 6f 6d 70 74 20 22 20 |concat p|rompt " |
|00002a40| 5c 22 22 20 70 61 74 74 | 65 72 6e 20 22 5c 22 20 |\"" patt|ern "\" |
|00002a50| 69 6e 20 66 69 6c 65 20 | 3a 22 29 29 29 29 20 28 |in file |:")))) (|
|00002a60| 6c 69 73 74 20 70 61 74 | 74 65 72 6e 20 66 69 6c |list pat|tern fil|
|00002a70| 65 20 73 77 69 74 63 68 | 65 73 29 29 5d 29 0a 28 |e switch|es))]).(|
|00002a80| 72 75 6e 2d 68 6f 6f 6b | 73 20 27 64 69 72 65 64 |run-hook|s 'dired|
|00002a90| 2d 67 72 65 70 2d 6c 6f | 61 64 2d 68 6f 6f 6b 29 |-grep-lo|ad-hook)|
|00002aa0| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+